home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aao.d64 / graphics.txt < prev    next >
Text File  |  2009-01-24  |  1KB  |  80 lines
  1. ╚╔╟╚ ╥┼╙ & ╘╒╥╘╠┼ GRAPHICS (0.14)
  2.  
  3. ┬┴├╦ -- MOVE TURTLE BACKWARDS
  4.  ┬┴├╦ <LENGTH>
  5.  
  6. ┬┴├╦╟╥╧╒╬─ -SET BACKGROUND COLOR
  7.  ┬┴├╦╟╥╧╒╬─ <COLOR NUMBER>
  8.  
  9. ┬╧╥─┼╥ -- SET THE SCREEN BORDER COLOR
  10.  ┬╧╥─┼╥ <COLOR NUMBER>
  11.  
  12. ├╠┼┴╥ -- CLEAR THE GRAPHICS SCREEN
  13.  ├╠┼┴╥
  14.  
  15. ─╥┴╫╘╧ --DRAW LINE FROM CURRENT POINT
  16.  ─╥┴╫╘╧ <X COORDINATE>,<Y COORDINATE>
  17.  
  18. ╞╔╠╠ -- FILL AREA WITH CURRENT COLOR
  19.  ╞╔╠╠ <X COORDINATE>,<Y COORDINATE>
  20.  
  21. ╞╧╥╫┴╥─ -- MOVE TURTLE FORWARD
  22.  ╞╧╥╫┴╥─ <LENGTH>
  23.  
  24. ╞╥┴═┼ -- SET UP A SCREEN WINDOW
  25.  ╞╥┴═┼ <X0>,<X1>,<Y0>,<Y1>
  26.  
  27. ╞╒╠╠╙├╥┼┼╬ --FULLSCREEN GRAPHICS (F5)
  28.  ╞╒╠╠╙├╥┼┼╬
  29.  
  30. ╚╔─┼╘╒╥╘╠┼ -- MAKE TURTLE INVISIBLE
  31.  ╚╔─┼╘╒╥╘╠┼
  32.  
  33. ╚╧═┼ -- PUT TURTLE IN HOME POSITION
  34.  ╚╧═┼
  35.  
  36. ╠┼╞╘ -- TURN TURTLE LEFT
  37.  ╠┼╞╘ <DEGREES>
  38.  
  39. ═╧╓┼╘╧ -MOVE TO X,Y POINT
  40.  ═╧╓┼╘╧ <X COORDINATE>,<Y COORDINATE>
  41.  
  42. ╨┼╬├╧╠╧╥ -- SET CURRENT PEN COLOR
  43.  ╨┼╬├╧╠╧╥ <COLOR NUMBER>
  44.  
  45. ╨┼╬─╧╫╬ -- TURTLE DRAWS
  46.  ╨┼╬─╧╫╬
  47.  
  48. ╨┼╬╒╨ -- TURTLE DOESN'T DRAW
  49.  ╨┼╬╒╨
  50.  
  51. ╨╠╧╘ -- PLOT A POINT IN CURRENT COLOR
  52.  ╨╠╧╘ <X COORDINATE>,<Y COORDINATE>
  53.  
  54. ╨╠╧╘╘┼╪╘ -- PRINT TEXT AS GRAPHICS
  55.  ╨╠╧╘╘┼╪╘ <X COORD>,<Y COORD>,<TEXT$>
  56.  
  57. ╥╔╟╚╘ -- TURN TURTLE RIGHT
  58.  ╥╔╟╚╘ <DEGREES>
  59.  
  60. ╙┼╘╟╥┴╨╚╔├ -- TURN ON GRAPHICS SCREEN
  61.  ╙┼╘╟╥┴╨╚╔├ [<TYPE>]
  62.  
  63. ╙┼╘╚┼┴─╔╬╟ -- SET TURTLE HEADING
  64.  ╙┼╘╚┼┴─╔╬╟ <DEGREE>
  65.  
  66. ╙┼╘╘┼╪╘ -- TURN ON TEXT SCREEN (F1)
  67.  ╙┼╘╘┼╪╘
  68.  
  69. ╙┼╘╪┘ -- MOVE TURTLE TO X AND Y POINT
  70.  ╙┼╘╪┘ <X COORDINATE>,<Y COORDINATE>
  71.  
  72. ╙╚╧╫╘╒╥╘╠┼ -- MAKE TURTLE VISIBLE
  73.  ╙╚╧╫╘╒╥╘╠┼
  74.  
  75. ╙╨╠╔╘╙├╥┼┼╬ -- PART TEXT, PAR GRAPHIC
  76.  ╙╨╠╔╘╙├╥┼┼╬
  77.  
  78. ╘╒╥╘╠┼╙╔┌┼ -- SET TURTLE SIZE (0-10)
  79.  ╘╒╥╘╠┼╙╔┌┼ <SIZE>
  80.